home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Online / AmigaTalk / examples / CheckBook.st < prev    next >
Text File  |  1998-09-30  |  189b  |  16 lines
  1. Class CheckBook
  2. | balance |
  3. [
  4.    new
  5.       balance <- 0
  6. |
  7.    + amount
  8.       balance <- balance + amount.
  9.       ^ balance
  10. |
  11.    - amount
  12.       balance <- balance - amount.
  13.       ^ balance
  14. ]
  15.  
  16.